-- card: 33513 from stack: in
-- bmap block id: 37231
-- flags: 0000
-- background id: 8210
-- name: endpaper


-- part 6 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=299 top=93 right=119 bottom=471
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 216
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: View of Cloister
----- HyperTalk script -----
on mouseUp
  reset
  visual barn door close to grey
  visual dissolve to grey
  visual zoom in
  go stack "Imitatio Christi"
  if result() is empty then
  else
    beep
  end if
end mouseUp


-- part 5 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=275 top=182 right=208 bottom=374
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 216
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Journal
----- HyperTalk script -----
on mouseUp
  reset
  visual barn door close to grey
  visual dissolve to grey
  visual zoom in
  go stack "Journal"
  if result() is empty then
  else
    beep
  end if
end mouseUp


-- part 11 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=275 top=145 right=172 bottom=375
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 216
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Library
----- HyperTalk script -----
on mouseUp
  reset
  visual barn door close to black
  visual dissolve to black
  visual zoom in
  go stack "Library"
  if the result is empty then
  else
    beep
  end if
end mouseUp


-- part 4 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=391 top=182 right=208 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 216
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  reset
  visual barn door close to black
  visual dissolve to black
  visual zoom in
  go Home
end mouseUp


-- part 3 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=390 top=146 right=172 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 216
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Begin Again
----- HyperTalk script -----
on mouseUp
  answer "Start the game from the beginning?" with "Yes" or "No"
  if it is "Yes" then
    set cursor to 3
    visual wipe right
    go cd "the dock"
    visual wipe right
    go cd folded
    visual wipe left
    go cd over
    visual scroll left fast
    go cd title
    openStack
    about
  end if
end mouseUp


-- part 14 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=332 top=278 right=304 bottom=453
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 216
-- text size: 14
-- style flags: 1024
-- line height: 18
-- part name: Lock Scripts?
----- HyperTalk script -----
-- Fellow HyperCardists:

-- Stacks that are password-protected or have the userLevel set to
-- something other than 5 are irritating, but allowing the players,
-- while playing this game, to peek at the scripts that contain the
-- solutions to the puzzles would reduce the challenge of the game.
-- Therefore, this stack contains a "lock" that keeps the scripts
-- hidden. I felt there should be some way, though, to make the scripts
-- available to those who might want to use the basic structure of
-- the stack for a game of their own design or would just like to see
-- and chortle at my inelegant code. Thus, one of the payoffs for
-- completing the game is that the stack is automatically "unlocked"
-- when this last card is reached, and the user who struggled to solve
-- the puzzles can look at the scripts at any time, but can merely click
-- this button to render the scripts inaccessible to the next player.

-- The next dialog box you see will ask if you want to lock or unlock
-- "Meat & Conversation."
-- Click on "Lock It" if you want to prevent others' peeking. This will
-- return you to the beginning of the game.
-- Click "Later" if you want to leave the stack in its current unlocked
-- state.

-- A button has been added to the Home card that is being distributed
-- with the "If Monks Had Macs..." collection. Its purpose is to make
-- the scripts of this stack accessible to those who get frustrated
-- with the game "Meat & Conversation" and don't want to play it out
-- to the end.
-- (If the cantmodify of "Meat & Conversation" is, because it is on
-- a locked disk or a CD, set to true, the stack will still be locked
-- when you open it again, though.)

-- If you are going to give a copy of this game to someone else, please
-- make sure that it is locked before you pass it on.

-- Be sure to give them a copy of the button, too.

--       Thanks
--       Fillmore


on mouseUp
  cleanScreen
  edit script of target
  answer "When you finished the game, you also gained access to its scripts. " &"Clicking “Lock It” will return this stack to the “No Peeking” mode." with "Lock It" or "Later"
  if it is "Later" then exit mouseUp
  set cantmodify of this stack to false
  set cursor to 3
  visual wipe right
  go cd "the dock"
  visual wipe right
  go cd folded
  visual wipe left
  go cd over
  visual scroll left fast
  go cd title
  put "Locked" into cd fld "Locked"
  openStack
  about
end mouseUp

on chooseDialog
  answer "You can now look at the scripts. Please click on " &"“Lock Scripts?” to return this stack to the “No Peeking” mode " &"for the next player."
end chooseDialog

on DoLockButton -- Used by the Home card button
  global LocBtnTemp
  set cantmodify of this stack to false
  if cd fld "locked" of first cd is empty then
    put "locked" into cd fld "locked" of first cd
  else
    put empty into cd fld "locked" of first cd
  end if
  put cd fld "Locked" of first cd into LocBtnTemp
end DoLockButton


-- part contents for background part 1
----- text -----



















-- part contents for background part 2
----- text -----